home *** CD-ROM | disk | FTP | other *** search
/ Hollywood Hardbodies / Hollywood Hard Bodies.iso / autorun / vv1.~pa < prev    next >
Text File  |  1996-03-02  |  4KB  |  160 lines
  1. unit Vv1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, FileCtrl, StdCtrls, Buttons, ExtCtrls, MPlayer,prdi,
  8.   MyRotate;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Image1: TImage;
  13.     DirectoryListBox1: TDirectoryListBox;
  14.     BitBtn1: TBitBtn;
  15.     Label2: TLabel;
  16.     FileListBox1: TFileListBox;
  17.     Label3: TLabel;
  18.     BitBtn2: TBitBtn;
  19.     Timer1: TTimer;
  20.     MediaPlayer1: TMediaPlayer;
  21.     BitBtn3: TBitBtn;
  22.     Bevel1: TBevel;
  23.     v31: TBitBtn;
  24.     v95: TBitBtn;
  25.     ListBox1: TListBox;
  26.     procedure DirectoryListBox1Change(Sender: TObject);
  27.     procedure BitBtn1Click(Sender: TObject);
  28.     procedure FormCreate(Sender: TObject);
  29.     procedure SpeedButton1Click(Sender: TObject);
  30.     procedure BitBtn2Click(Sender: TObject);
  31.     procedure Timer1Timer(Sender: TObject);
  32.     procedure BitBtn3Click(Sender: TObject);
  33.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  34.     procedure v31Click(Sender: TObject);
  35.     procedure v95Click(Sender: TObject);
  36.   private
  37.     { Private declarations }
  38.   public
  39.     { Public declarations }
  40.   end;
  41.  
  42. var
  43.   Form1: TForm1;
  44.   st:Boolean;
  45.   star:Integer;
  46. implementation
  47.  
  48. {$R *.DFM}
  49.  
  50. procedure TForm1.DirectoryListBox1Change(Sender: TObject);
  51. begin
  52.      FileListBox1.Directory:=DirectoryListBox1.Directory;
  53. end;
  54.  
  55. procedure TForm1.BitBtn1Click(Sender: TObject);
  56. begin
  57. Close;
  58. end;
  59.  
  60. procedure TForm1.FormCreate(Sender: TObject);
  61. begin
  62.      with mediaplayer1 do
  63.      begin
  64.      filename:='\autorun\v3.wav';
  65.      open;
  66.      end;
  67.      st:=True;
  68.      star:=0
  69.      go:=false;
  70. end;
  71.  
  72. procedure TForm1.SpeedButton1Click(Sender: TObject);
  73. var cmd:array[0..255] of char;
  74. begin
  75.      StrPcopy(cmd,'\autorun\vpic '+directoryListBox1.Directory);
  76.      winexec(Cmd,SW_showMaximized);
  77. end;
  78.  
  79. procedure TForm1.BitBtn2Click(Sender: TObject);
  80. begin
  81.      if bitbtn2.caption='Music On' then
  82.      begin
  83.         mediaplayer1.stop;
  84.         st:=False;
  85.         bitbtn2.caption:='Music Off';
  86.      End
  87.      else
  88.      begin
  89.         mediaplayer1.play;
  90.         st:=True;
  91.         bitbtn2.caption:='Music On';
  92.      End;
  93. end;
  94.  
  95. procedure TForm1.Timer1Timer(Sender: TObject);
  96. begin
  97.      if go then
  98.      with mediaplayer1 do
  99.      begin
  100.           if tracklength[1]=Position then
  101.           begin
  102.           star:=star+1;
  103.           Filename:=listbox1.items[star];
  104.           open;
  105.           if star=2 then star:=-1;
  106.           end;
  107.      end;
  108.      if st then mediaplayer1.play
  109.      else mediaplayer1.stop;
  110. end;
  111.  
  112. procedure TForm1.BitBtn3Click(Sender: TObject);
  113. var
  114.    f:Textfile;
  115.    i:integer;
  116. begin
  117.      assignfile(f,'c:\temp.ben');
  118.      rewrite(f);
  119.      tag:=1;
  120.      for i:=0 to filelistbox1.items.count-1 do
  121.      begin
  122.      Writeln(f,filelistbox1.items[i]);
  123.      end;
  124.      closefile(f);
  125.      priDial.show;
  126.  
  127. end;
  128.  
  129. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  130. begin
  131.      if tag=1 then
  132.      Deletefile('c:\temp.ben');
  133. end;
  134.  
  135. procedure TForm1.v31Click(Sender: TObject);
  136. begin
  137.      go:=true;
  138.      with mediaplayer1 do
  139.      begin
  140.           filename:='\autorun\b1.wav';
  141.           pen;
  142.           play;
  143.      end;
  144.      WinExec('\go.bat',SW_shownormal);
  145. end;
  146.  
  147. procedure TForm1.v95Click(Sender: TObject);
  148. begin
  149.      go:=true;
  150.      with mediaplayer1 do
  151.      begin
  152.           filename:='\autorun\b1.wav';
  153.           pen;
  154.           play;
  155.      end;
  156.      winexec('\Ployvie\polyview',Sw_ShowMaximized);
  157. end;
  158.  
  159. end.
  160.